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to class X y () 

to number x y :: nprint () 

to vector x y :: substr () 

to atom X y (CODE 29) 

to string x y :: substr Q 

to arec x y () 

to float X y :: fprint () 

to falseclass x y (isnew) 

to isnew (CODE 5) 

Cy^'faise'f- falseclass. 

d-'CriTLE USER DO SIZE CODE SELF AREC GLOB MESS RETN CLAS 

length eva] or and mod chars error 

Cg^.,/;:-[]?"s1l-Af()<?>*-={}*+=>-<> go goto turn next contents end Q^^SS*^ min max) 

•-rh75.tfl. 

DONT EDIT ABOVE HERE!— These classes and atoms mentioned early to guarantee addresses for mach 

^''ine code. 



IlEllEWITH A SOMEWHAT WHIMSICAL ANNOTATED VERSION OF SYSDEFS. ANNOTATIONS ARE IN ITALIC 
** IT IS HOPED THAT THIS WILL PROVIDE SOME ELUCIDATION OF THE CODE ESCAPES, OliSCURITIES ^\ 
**N0 DOUBT PERSIST . THE ANNOTATIONS ARE INTENDED TO BE BUT DIMLY LIGHTED MARKERS ON 1 
** TO TRUE ILLUMINATION. 



TO PRINT ALLDEFS 



Get ALLDEFS into Bravo (with font ST8.AL, already FONT.O for those 
who have run any of the STnRAVO*.CM command files) and translate 
onto another file (e.g. ALLDEFS. TR). Got ALLDEFS. EC from MAXC and 
type it. You must have all the .EP files li;;ted therein. Then you may typo 

GEARS/D ALLDEFS/G ALLDEFS.TR 



thOn.tf2. 
BOOTSTRAPPING MAGIC. 

i-h75.i-fl. 

to isnow (null instancer>(G?'in.stance«-allocate permsize. 

instance[0]^class. Ittrixe) 
ITfalse). 

ThGO.TfO.' 

to print ("S?..) 

•t-h75.lfl. 

:;c.Print its address in octal. 

i'riiilinu got?;; to (he same place as CODE 20. 'i'Jiis is used primarily 

for bootstrapping. All system classes will print themselves. 

thGO.tfO." 

to read (CODE 2) 

'lh75;II;Hoad keyboard input into a vector. This Is almost nlentical 
in function to the SMALLTALK read roufini!, except that DOll' is 
siiiiiallcd by <CR> at zcro-th parentliesis levcd, and siTiglc-quotc 
striii<-:s are if;nornd. It is only availalile in Nova versions. 
ThGO.tfO.' 
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'-Mi90.tf2. 

MESSAGE HANDLING 

thCO.ifO.' 

to : (CODE 18) 

'th75.tfl. 
to : name 

■<^C^ ^(:C^name nil =>(trnaine«-caller message quotefetch) 

(ffcaller message quotefetch) 

Fetch the next thing in the message stream unevaluated 
and bind it to the name if one is there. 

<?# ^{:C?°name nil r^CtTnaine^-caller message referencofetch) 

(Ifcallor message referonccfetcli) 

Fetch tlie reference to next thing in the message stream 
and bind it to the name if one is there. 

(:C^name nil :>(tfname(- caller message evalfetch) 
Ifcaller message evalfetch) 

Fetch the next thing in the message strpam evaluated 

and bind it to the name if one is there. 

tliGO.tfO.* 

to <f (CODE 17) 

•th75.tfl. 

:CI?'token. token=caller. message. code[caller.message.pc].-> 

(callor. message. pc«-caller, message. pc+1, frtruc) ffalse. 
That is, if a match for tlie token is found in the message, then 
gobble it up and return true, else return false. 
theO.tfO.' 

to 2 ( CODE 39 ) 

to g ( CODE 36 ) 

to t (CODE 13) 

'th75.tfl. 

:x. then do a return, and apply x to any further message. Note 

that in (... ttx + a. Q^y^-y-Z), the assignment to y will never 

happen, since t causes a return. 

ThGO.tfO.' 

to G?" (CODE 9) 

'Th75.tfl. 

1t:Cf^. That is, get the next thing in the mossaiio stream uncvalled 

and active return it (which causes it to be apjiHcd to the message). 

thCO.tfO.' 

to // (:/0 

'tli75.Tfl. 

lleUnns a REFERENCE to its argtnnent's binding. 

ThCO.ifO.' 



•-rh90.tf2. 
CONTROL CLASSES 
tlUiU.rfO.' 

to repeat tolven (://token. CODE 1) 
'tli7G.tfl. 

repeat (token eval) Not a true apply to oval, and thortifore token 
MUST be a vector. 
tliGO.tfO.' 

to dono X (<?witl!=^(:x. CODE 25) CODE 25) 
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•th75.tfl. 

done causes a pop out of the nearest enclosing repeat, for, or do. 

"done with val" will cause the repeat to have value val 

theO.tfO.' 

to again (CODE 6) 
'thVS.tfl. 

repeat (Cy''active<-active caller, eq active, class #repeat=>(done)). 
That is, redo the most recent repeat, for, or do loop. 
thGO.rfO.' 

to if exp (:exp;*(<?then=>C:exp. ^elsorsCo. exp)exp)error i^Cno then)) 
-S?then=j.(o. <?else=>(:oxp) false)error (^(no then)) 
■thTS.tfl. 

The ALGOL "if ... then ... else ..." 
thGO.tfO.' 

to for token step stop var start exp ( 
(3'%'ar *- a. 

G?"start <- {<<-.-,(:) 1). 
G/^'stop ♦- (<?to=>{:) start). 
G/=stop «- (<?l)y--*(:) 1). 
<lii\o. :#exp. CODE 24) 
•ThTfj.tfl. 
An Algol-like "for". 

Note the default values if "<-","to","by",etc., are omitted. 
CODE 21 means --rcpeat(oxp eval). This implies "done" and "again" 

will work, which is correct. 
•thGO.tfO.' 

to do token step stop var start exp ( 

Cl?-'step«-C5'start-l. :stop. rZ/oxp. CODE 24) 



'th90.tf2. 

INITIALIZING SYSTEM CLASSES 



th75.tfl. 

Hero are the main kludges which remain from the time when we 

really didnH understand classes very well, but wanted a working 

SMALLTALK. PUT and GET are two of the principle actions of class 

class. The new verson of SMALLTALK will have class as a class 

with those actions intensional. 

thOO.tfO.' 

to PUT X y z (://x. :y. :z. CODE 12) 
'th75.tfl. 

The first arguniont MUST he an atom which is bound to a class 
tabic. The third argument is iiisl ailed in the value side of that table 
curresponding to the nairie (atum) which was the second argument. 
-rhGO.TfO.' 

to GET X y (r/yx. :y. CODE 28) 
'Th75.tfl. 

!f "x" ii; a class table then the binding of the atom in "y" will be 
fetched. 
thGO.tfO.' 

to leech field bits : ptr (CODE 27 
isiiew=>(:ptr)) 
'rh7r).Tfl. 

Lets you subscript any instance 

a| 0] gives you the class, a[Il gives the first field, etc. 
a! 'Ji gives you the pointrir; ;'.|2]l] returns the BITS in an int<'j-'er 
a| 2 |*-foo will dereference count previous contents, but ar2Jt-]foo 
v/i)l not. 
thfiO.rfO.' 



alldofs 15-OCT-75 16:49:13 PAGE 4 



PUT USER (S=TITLE CAUSER 
PUT falseclass C?=TITLE i5=false 

PUT atom Ci?=DO C^(CODE 29 
•-Mi75.tfl. 

<r«-->(:x. "(Tx — Lookup SELF and replace its value by x.) 
's?'eval-^(f — Lookup the binding of SELF) 
<r==>CTrSELF=:)\ 

•S?cliars:>(ff — printname of SELF (a string)) 
thGO.tfO.' 

<Fis=>(ISIT eval) 

<;? prJnt:s.(disp«-SELF chars) ) 

•th75.tfl. 

Done this way (PUT used rather than using "to") because we 

wanted to know where the system classes are. llonce the initial 

"to atom X y ()" , for example, in "Bootstrapping Magic" followed 

by the behavior here. 

theO.TfO." 

to ev (repeat (or read eval print)) 

PUT falseclass C3"DO C^(CODE 11 
'th75.tfl. 
<r=>^ (:C3^.) 
■«?or^ (t:) 
<?and=> (:.) 
<?<=> (:.) 
<f=^ (:.) 

<r>=> (:.) 

thGO.tfO.' 

<fis:^(<ffalso->(irtrue) <??:* (tTG/^false) S. tSELF) 
«s?print=>((S''^false print) ) 

PUT vector dr-DO G?='(CODE 3 ^(tTsubstr SELF x GLOB MESS) 
'th75.tfl. 
isncw=>(Allocate vector of length :. 

Fill vector with nils.) 
<[^(:x. <f]. 

(<^*-=>(:y. try — store y into xth element. ) 

t xth element) ) 
•^length;:>(tr length of string or vector) 
■<?eval=>(Gr*pc«-0. repeat 

(null SELF[Cif'=pct-pc+l]=*(done) 

(a?="vaI^SELF[pc] eval) 

•fTval) sort of... 
thGO.tfO.' 
•S?is^(lSlT eval) 
<^+=>(:y is vectorr>(C?=x*-SELF[l to SELF length+y length], 

tx[SELF lcngth+1 to x k>ngth]*-y[l to y length]) 

error Ci'^(vector not found)) 
♦*i?map.>(:y. for x to SELF length 

(evapply SELl-[x] to y)) 
<fprint:>(diHp<-40. for x to SELF length 

(disp»- .32. SKLF^xJ print). disp<-41) 

) 

PUT string &'DO G?"(CODE 3 r>(fsnbstr SELF x GLOB MESS) 

'th75.tfl. 

isnew->( Allocate string of length :. 
Fill string with 0377s.) 

(<l<^z>{:y. ty — .store y into xth olonient. ) 
t xth element) ) 
^lci!gth=>(ir lengtli of string or vector) rhGO.tfO. 
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•nyis=>CISIT eval) 

•<f==>(:y is stringr>(SEI.F length=v length=»( 

for X to SELF length (SELF[x]=y[x]=*() tfalse)) tfalse) 

tfalse) 
<f+^i:y is strIngr>(Cif=x*-SELF[l to SELF length+y length]. 

1Tx[SELF longth+1 to x Iength]«-y[l to y length]) 

error G/'^(string not found)) 
<;?print=>(0 = CS=x «- SELF[1 to 9999] find first 39:* 
(disp i- 39. disp t- SELF, disp *■ 39) 
SELF[1 to x-1] print. SELF[x+l to SELF length] print) 

D 

PUT number C^DO C^(CODE 4 
'-rhVS.-rfl. 
•«?+=,(trval+;) 
<?-:*( tval-:) 
<?*=>(trval*:) 
•^/=,(1Tval/:) 
<?<.*(trval<:) 
•s?==>{tival=:) 
<f>=>(trval>:) 
<?^-=>(irval^:) 
<?*=>(trval*:) 
<^-*(1i-val-:) 

<?max=*(Gr'x^:. SELF>x^(irSELF) tx) 
<Jinin.>(iS=x*-:. SELF<X:*(trSELF) tx) 
<^Q>(<?+=^(tfval OH :) 

<f-^(txa.l XOri :) 

<f*=>(1t-val AND :) 

<f/=>(11-val LSIIIFT :)) 
1-hGO.tfO.' 

<fisr>(ISIT eval) 
<fprintr>(SELF>0=>(nprint SELF) 

SELFrO=>(disp<-060) 

SELF=0100000r>(di.sp'-base8 SELF) 

disp«-025. nprint 0-SELF) ) 
•th75.'rfl. 

For floating point stuff see FLOAT 
thCO.tfO.' 

to - X (:x*"l) 

•rhTG.tfl. 

An often vised abbreviation, has to work for float as well. 

thOO.tfO.' 

to biiseS i x s (:x. G/'s ♦-string 7. for i to 7 

(s[8-i] ♦- OGO + X EJ7. (S'x <r X Z]"3). fi-s) 

•th75.tfl. 

Returns a string containing the octal representation (unsigned) of its 

integer argument. 

thGO.TfO.' 

CFa'ISIT ^ d?''(<:??->(fTITLK) trTITLE=S). 

to nil X (//x) 

'th75.tfl. 

nil is an "unbound pointer", which is vised lo fill vectors and 

tables. 

theO.TfO.' 

to null X (:x. 1 CODE 37) 

'-th75,Tfl. 

Null riiliuns true if its message is "nil", otherv/iso fnlso. 

TiKJO.tfO.' 

to eq X (CODE 15) 
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to disp X i ( 

<5*-=>(:x is string=>(for i to x length (TTY^x[i])) TTY*-x) 

<?clcar=>C) •<fsub=»(:x eval)) 

'th75.tfl. ... 

This disp is used for bootstrapping. Later in these definitions ^^ 

(READER)it will be restored to an instance of "display frame." 

thGO.TfO.' 

to TTY (0 CODE 20) 
'th75.Tfl. 

TTY'(-<integcr> will print an ascii on the Nova tty. On altos, TTY 
prints in little error window at bottom of screen. 
theO.tfO.' 

to dsoff (mem 272<-0) 

'Th75.tfX. o T 

Turns display off by storing in display control block ptr. bpeeds 
up Alto Smalltalk by factor of 2. 
thfiO.tfO.' 

to dson (mem 0420 ♦- 072) 

•th75.tfl. , ^, , 

Turns display back on by refreshing display control block 
pointer. 
thGO.TfO.' 

to apply X y (://x. <to=,(:y. <fin=,(:GLOB. CODE 10) CODE 10) 

<?in=!>(:GLOB. CODE 10) CODE 10) 
to evapply x y (:x. <fto^(:y. <?in:,(:GLOB. CODE 10) CODE 10) 
<?in=>(:GLOB. CODE 10) CODE 10) 

'th75.Tfl. 

Causes its argument to be applied to the message stream of the 

caller, or, in the case of apply foo to <vector>, to that vector. 

Note that only the message is changed, and that the caller is not 

bypassed in any global symbol lookup unless the in-clause is used to 

specify another context. 

thCO.tfO.' 

to cr (dispt-13). to sp (disp+-32) 

Cir'true<-Ci?=true 
Ci?^eval«-CS'''eval 
to is ( «??rr>(iri2r'untyped) S. tfalse) 

•th75.tfl. 

These are used to handle messages to classes which can't answer 

questions invoking "is", "oval", etc. 

theO.tfO.' 

to t nprint substr (ev). t 
'th75.tfl. 

prevent -to- from making these global. 
fhCO.tfO.' 

to nprint digit n (:n=0-.>() . . ^ 

i?jMiait«-n mod 10. nprint n/lO. disp*-060+digit) 

PUT number C/'nprint //nprint. 

'thVS.tfl, . ,1 

Prints (non-nog) integers in decimal with leading zeroes suppressed! 

thGO.i-fO.' 

to substr op byte s lb ub s2 1b2 ub2 ( 

://s. :1b. :ub. :MESS. d?"GLOB«-ub. 'tfl.teo hecthCO.tfO. 

I 

:ub. (<?]^() error ^^^(missiug right bracket)) 
G'-'ljyte *- 0/^1 b2 <- Cif^ub2 ^ I. 
<;Jfind=> (G?"-op ^ (<Jfirst->(l) <?lnst-->(2) 1) 
' ^ .H(<^non-.C2)0). :byte. CODE40) 

<?*-=.> (<yall.> (jbytc. Cf-'opf-O. CODE 40) 
:#s2. (l>op<-5. 
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<f[=, (:lb2. -^to. :ub2. <?]. CODE 40) 
G?'ub2-9999. CODE 40) 
(3r"op *- 6. C?='ub2 t- ub+l-lb. 

G?="s2 «- (s is string^(string ub2) vector ub2). CODE 40). 
PUT string Cir'substr i'/substr. 
PUT vector Cf^substr i'/substr. 
done 

•th75.i-fl. 

substr takes care of copying, moving and searching within strings 
and vectors. It first gets its father (string/vector) and the lower 
bound, and then proceeds to fetch the rest of the message from 
above. Some examples: 

Cy=(a b c d e)[2 to 3] -> (b c) 
i^(a b c d e)[l to 5] find <S^c -> 3 
C^Ca bed e)Cl to 5] find &-x -> 
See vecmod for more examples. String syntax is identical. 
thGO.tfO.' 

to vecmod new end old posn ndel nins ins (C^end«- 10000. 
:old. :posn. :ndel. :ins. 

Ci/'nins«-(ins is vector^(ins length-1) null ins=>(0) 1). 
(£=new ♦- old[l to old length+nins-ndel]. 

(ins is vector=*(new[posn to end] *- insfl to nins]) newtposu]<-ins). 
ncw[posn+nins to end] *• old[posn+ndel to end], 
ttnew) 
'th75.tfl. 

Vecmod makes a copy of old vector with ndel elements deleted 
beginning at posn. If ins is a vector, its elements are inserted at 
the same place. It is the heart of edit. 
thCO.rfO.' 

to addto func v w (rflfunc. :w. ijr"v«-GET func (5r"DO. null v=»(erroT Ci?=(no code)) 
PUT func CS^DO vecmod v v length w) 
•thVS.tfl. 

Addto appends code to a class definition. 
thOO.TfO.' 

to fill t i 1 str ( 
cS^l <- :str length. 
G/=t «- disp «- kbd. 
(t = 10-* 

(C/"t ^ disp <- kbd)). 
strtd^^'i *- 1] <- t. 
repeat 
(i = l-3.(done) 
10 = strtCi^'i <- i + 1] ♦- disp «- kbd^(done)). 
ITstr) 

to stream in : i E 1( 
CODK 22 
'lh75.tfl. 
CODE 22 is equivalent to... 

( 

{> = l.> 

(C/V. *- s[l toi^'l *- 2 * 1])) 
ItsIC/M <- i + 1] *- :) 
<|nc:it* 

(i = i>(iro) 

trs[CL'"i <- i + 1]) 
<;rcontcnts=> 
(tTsfl to i]) 
•rhGO.tfO,' 

(G?=i <- 0) 
isnew::*. 

(CS's <- 
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C<rof:*(:) 
string 10). 

(<yfrom=>((:) 
- 1) 

(<fto=>(:) 
s length)) 

(ISIT eval) 
<fond=> 

(ti = 1) 

<;?print=> 

c 

(i > 0=> 

(s[l to i] print)), 
tlisp <- 1. 
1 < i + l.>() 
s[j + 1 to 1] print)) 

to { set (Gr'set«-stream of vector 10. repeat( 
<;;;^}=>(fiset contents) 
set ♦- :)) 'tfl. uses stream to accumulate a vectorTfO.' 

to indisji disp (:disp. tooval) 'tfl. redefines disp and evals a vectortfO.' 

to stringof x (0^K<r:. tfindisp stream (x print, disp contents)) 
'rh75.tfl. 

uses stream and indisp to give you the print-string of anything. 
ThGO.tfO.' 



to obsct i input : vcc size end : each ( . 

<add=>((size=G?'-'end*-end+l=>(C:f=veC'^vec[l to CSf=size*-size+10"J)) 

vocfend]*-:) 
<^*-^(0=vccr. 1 to end] find first :input=> 

(SELF add ijiput)) 
<;?delete=>(0=Cl/''i*-vec[l to cndj find first :input=»Cn' false) 

vec[i to ciid]|«-vec[i + l to end+1]. C?=ond«-end-l) 
<?unadd=>(G=input<-vecr.ond]. vec[cnd]«-nil. 

Cv?="end«-end-l. Itinput) 
<fvp.c=>("vt!f:[l to end^) 
<;fmapr>(C2-'i*-0. CS'^input*-:. repeat 

{end<Q/"i^i+lrj,(done) input eval)1i'false) 
<tfprintr>(SELF map C&''(each print, sp)) 
<^is.>(ISrT eval) 
isnowr>(Cb-''end+-G. C^'vec*- vector CS'size^-'l') 

) 



't]i<)0.rf2. 

FRiriTY-PRXNT 

tbGO.tfO. 

■Mi75.tn. 

TliJ'i prints the code; classpriiit makes the header. 

rhGO.tfO.' 

to sliow func t ( 

■Jf (unc. C7't«-GET func Cr'DO. 
null t => ('i;t-"(no code)) pshow t 0.) 
to p'ihow ptr dent i t :: >: taiiin ijidex (:ptr :dcnt. 
(ptr lenfrth>'l=>(tabin dent)) disp^40. 
for i to ptr length-1 
(Cr-t <- ptr[i:}. 

t is vector r>(psho\v t dent+3. 
i=ptr length- h>() 
&. = G;=x^ptr[i + 1].=>() 
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X is vector:>() 
tabin dent) 
i=l =>(t print) 
0<Gl=xf-index C^Q. , 's [ ] =>) t=* 

(x=l=»(t print. ptr[i+l] is vector=>() tabin dent) 

t jjrint) 
0=index (^(_: C^ # IT [ <r :* Q) ptr[i-l]=>(disp<-32. t print) 
t print) 
disp«-41) 
to t each tabin index (ev) 
t 

to each (Itvecfi}) 'shorthand for mapping with obsets' 

PUT obset C^each #each. 

to tabin n :: x (:n. disp<-13. repeat 
(n > 6:* 

(disp <- x[6]. 
(S^n <- n - 6) 
done) 
disp «- x[n + 1]) 
(PUT tabin GT'x (string 32 fill string 2 fill string 3 
fill string 4 fill string 5 fill string 6}). 
'leave these blanks' 
PUT pshow CiPtabin *¥ tabin. 
to index op bvte s lb ub s2 lb2 ub2 ( 

:s. :byte. CL>op*-Ci/=lb«-C^s2<-C^lb2^i3r'ub2+-l. C^ub^-OODO. CODE 40) 

•th75.tfl. 

A piece of substr which runs faster. 

theo.tfo.' 

PUT pshow cS^index /i^index. 
done 

'th90.rf2. 

FLOATING POINTfheO.tfO. 

t 

PUT float Cv^DO Cll'(0 CODE 42 'this does + .*/<.=>^*^' 
<Jipart=>(l CODE 4 2) 
<?fpartr>(2 CODE 42) 
<5ipo\v=> 
(:x = 0=>Ctl.O) 
x = !=>() 

X > lri> 

(1 = X mod Z^ 

(tSELF *(SELF * SELF) 
ipow X / 2) 
f(SELF * SELF) 
ipow X / 2) 
^1.0 / SELF ipow Q-x) 
<3^c;partr> 
(SELF < :x=»(irO) 
SELF < X * x=>(lM) 
t 

((j/'y «- 2 * SELF epart x * x) 
+ 

(SELF / X ipow y) 
I'part x) 
<ni-»CIiSPl' eval) 
<^!priiit-> 
(SELl' = O.Ov>(dLsp f- 48. dispwlO. disp<-48) 
SELF < 0.0=> 
(disp 4- 025. 
fprint - SELF) 
fprint SELF) 

) 
to t fprint (<^v) 
t 
to fprint n p q s : : fuzz z ( 

'rf l.NorinuHze to [;i,lO)tfO.' 
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(:n < 1=> 

(C^p *■ -(10.0 / n) 
epart 10.0) 
(^p *■ n epart 10.0) 
G/^n <- fuzz + n / 10.0 ipow p. 

(n-10.0.>(cl?='p«-p+l. i5?'n*-n/10.0 'ugly fix for now')) 
'tfl. Scientific or decirnaltfO.' 
(G/'^s «- fuzz*2. 
■4<p<6=>((^q ♦■ 0. ; 
p < 0=> 

(clisp<-z[l to 1-p]) 
C^'s *- s * 10.0 ipow p) 
Cv°q<-15. Cff°p<-0) 
'tfl. Now print (s suppresses trailing zeros)tfO.' 
do 9 
(disp +• 48 + n ipart. 
G/^'p *- p - 1. 
C^n <- 10.0 * n fpart. 
p < 0=> 

( 

(p = 'l=>(disp ♦- 4G)) 
n < (S-'s i- 10.0 * s=>(done))) 
(p r -l=>(di.sp *■ 48)) 
q * 0=>(disp«-0145. 
q print)} 
PUT fprint GPfuzz 5.0 * 10.0 ipow *9. 
PUT fprint C?"z fill string 4 
0.00 

PUT float (v=fprint ^fprint. 
done 

•th90.tf2. 

TEXT DISPLAY ROUTINES 

thCO.tfO. 

-Mi75.tfl. 

Display frames are declared with five parameters. They are a left x, a width, a top y, a heigh 

**t, and a strinfr. Hence — 

CI/=yourframe<-dispframe 16 256 16 256 string 400. 
— gets you an area on the upper left portion of the display that starts at x,y 16,16 aiid is 2 
**56 bits(raster units) wide and 256 bits high. The string (huf) serves as the text buffer, an 
**d is altered by +- and scrolling. 

There are actually two entities associated with display frames — frames and windows. Currently 
**both arc given the same dimensions upon declaration (see isnow). 

The four instance variables defining the window are "winx", "winwd", "winy", and "winlit". The 
** hriiindaries of Ihis rectangle are tntcraectud with the physical display. The window actuall 
**y uis'.'d by the machine hmguage will rodiico Hie size of the window, if ne'-oss;iry, to bo confi 
**nod by the phj.sical display. Clipping and scrolling arc done on tJie basis of window boundar 
*''ies. If a character is in the window it will be displayed. If a string or character cause 
* 'ovd'iflow of the bottom of the window, scrolling will occur. 

Tim four instance variables defining the frame are "frmx", "frmwd", "frmy", and "frinht". Tlii 
**s roctauf^le may be smaller or larger thaji its associated window us well as tlio physical disp 
^'lay. Frame boundaries are the basis for word-wraparoiuul. fl'resc'nf ly, if frn)y+ frinht will 
"'cause overflow of the windosv bottom[ winx+winlit J, frmht wil! ;ift i.h:)i':;iil to a l;i !:;h( consonan 
** t with the bottom of the window. This has been done to maniu.'e scrolling, but may gut change 
* -d as we get a Ijettor handle on the meaning of frames and windows.). 

"Ibif" is the string buffer associated v/ith any given instance of dispframc. This is the strin 
**g that is picked on the way to microcode scan conversion. When scrolling occurs, the first 
■'■*line of characters, according to frame boumL-nies, is strifipod nut arul the reniainder of the 
**buffer mapped back into itself. If a "*-" message would overflow this buffer, then scrolling 
"* will occur until the input fits. 

"1,,'ist" is a "l)uf" subscriiit, {jointiiig to the current last cluiracfer in the buffer. That is, t 
' Mie last character resulting from a "♦-". 
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"I.stln" also points into the buffer at the character that begins the last line of text in the 
**fraine. It is a starting point for scan conversion in the "«-" call. 

"Mark" is sot by dread (see belovv) and points to the character in the buffer which represents 
** the last prompt output by SMALLTALK; reading begins there. Mark is updated by scrolling, so 
** that it tracks the characters. One could detect scrolling by watching mark. 

"Charx" and "chary" reflect right x and top y of the character pointed to by "last". 

The "reply" variable in the instance may be helpful in controlling things. When the reply is 
**0, it means everything should he OK. Tiiat is, there was intersection between the window and 
**display and intersection between the window and the frame. When reply is 1, there was no int 
**ersection between the window and the display. A 2 reply means no intersection between window 
** and frame. A 3 rcjily means window height less than font height or a character to wide for a 
** frame — hence no room for scan conversion of even one line of text. A 4 means that the fra 
**me height has been increased in order to accomodate the input. A 5 means the bottom of the w 
**indow (i.e. window x + window height) has been overflowed —hence that scrolling took place, 
** A 6 means that both 4 and 5 are true. 

"justify" is a toggle for right justifying the contents of a dispframe. The default is an 
**d means no justification. Setting it to 1 causes justification on frame boundaries. 

The "font" variable allows for the association of a font other than the default font with the 
**display frame. To get a different font into core say G/^something *- file <fontf ilename> conto 
**nts. Then you can say disp's ((i'='font«-something) or you can declare the font at the same time a 
**s the tdispframe is declared as e.g. 
Cy'^'yourframe <- dispframe 3 40 3 40 string 20 font something. 

theo.tfo.' 

(to dispframe input 

: winx winwd winy winht frmx frmwd frmy frmht 

last mark Istln charx chary rcxily justify buf font editor 

: sub frame dread reread defont ( 
<r «- =>(0 CODE 51) 

•■rh75.tfl. 

:s. s is number => (append this ascii char) 
s is string ^(append string) 
error. 

thGO.TfO.' 

<f's^(foeval) 

'th75.tfl. 

Allows access to instance variables. For example, 

yourframe's (Ci/'winx*-32) 
-will alter the value of window x in the instance of dispframe 
called Ci/='yourframeCr'. 
thCO.tfO.' 

<?hasmouso.->(frmx<mx<frmx+frmwd^(irfrmy<my<frmy+frmht)f false) 
'th75.tfi. 

Tolls you if the mouse is within a frame. 
tJiGO.tfO.' 

<^show.-.(4 CODE 51 3 CODE 51) 

<?displav >(SELF show frame black) 
^rh75.Tfl. 

.Show clears the intersection of window and frame (see fclear, 
below) and displays buf from the beginning through last. A haxuly 
way to clean up a cluttered world. 
thGO.tfO.' 

<ffclear=>(4 CODE 51) 
'th7G.tfl. 

Fclcar clears the iiiterscction of the window and franu;. Ilence if 
the frame is defined as smaller than tlie window, only the frajiic 
area will be cleared. If the frame is defined as larger than the 
window, only the window area will be cleared, since that sp;ico 
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is in fact your "window" on that frame. 
thCO.tfO." 

<?hicle:^C4 CODE 51 frame white) 

<fput.>(:input. <rat. <3?"winx<-C^frmxt-:. t^winy^-C^frmy^-Cs'chary^-:. 
C?"last*-0. CS^lstln*-!. SELF^-input. tcharx-winx) 
•th75.tf 1. 

For them as would rather do it themselves. 
thGO.tfO.' 

<rwclears.(5 CODE 51) 
'Th75.-i-fl. 
Wclear clears the intersection of a window and the physical 

display. 
thGO.tfO.' 

<rscrolU(2 CODE 51) 
'th75.tfl. 

Scroll removes the top line of text from the frame's string buffer, 
a:id moves the text up one line. 
thGO.tfO.' 

<Jclear=>(l CODE 51) 

'th75.tf 1. . , ^r 

Clear does an f clear and sots the "last" pointer into the string buffer 
to and "Istln" to 1. It has the effect of cleaning out the string 
buffer as well as clearing the frame area. 
thGO.tfO.' 

<?mfindc =>(7 CODE 51) 
•th75.tfl. 
Find character. 

Takes two arguments ~ x and y (typically msex and msoy). 
Returns vector: 

vec[l] = subscript of char in string 

voc[;2] = left X of char 

vocf.TJ = width of char 

vccf 4] = topy of char 
If vecfl] is -1 x,y is after the end of the string. 
If vec[;2] is -2 x,y is not in the window. 
Sample call: 

Ci?'myvcc*-yourfranie mfindc mx my. 

thGO.tfO." 

-f.?mfindw ^(8 CODE 51) 
'rh75.tfl. 
Find word. 

Takes two arguments — x and y (typically msex and msoy). 
Returns vector: 

vcc[;i] = subscript of first char in word 

vecf2] = left x of word 

vecf 3 ] = width of word 

vec}'4] = topy of word 
If vecri ! is -i x.y is after the end of the string. 
If vcc-i 'ij is -2 x,y is not. in the window. 
Sample t-;i!l: 

&'myvcc<-yourframo mfindw mx my. 

thOO.rfO.' 

-i^mfindt =>(0 CODE 51) 
'Th75.tfl. 
Find token. 

Takes two arguments — x and y (typically msex and msey). 
Roturn:< vector: 

vecjl] = token coun!. ala Sii!antalk tolu-n Ht>:'cc's and 

carrianf" rotuvns are ooiisiderod I'.s dc!i!i.'.ii.M-s,but 
miilti]jlo delimiters do not biiisip Uic count. Text 
doliniited by single qisole:; ir; cor.nU'd as one 
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token, and embedded text (i.e. more than one 
quote in sequence will not cause the token count 
to be bumped (allows for embedding strings 
within strings). 

vec[]2] = left X of word 

vec[3] = width of word 

vec[4] = topy of word 

If vecfl] is -1 x,y is after the end of the string or not in frame. 
If vec[2;] is -2 x,y is not in the window. 
A sample call — 

Clr'variable*-yourframe mfindt mx my. 
theO.tfO.' 

•<;fread=»(irdread) 
•th75.tfl. 

Makes a coda vector out of keyboard input. See dread below. 
thCO.tfO.' 

<J'reread;*(ttreread :) 
•th75.Tfl. 

Used by redo and fix. Goes back n(its argument), prompts and does 
a read from there. See reread below. 
TheO.tfO.' 

<?subT>(ij?'input *■ sub :. SELF show, ffinput) 
•th75.tfl. 
Evals its argument in a sub-window. Used by fix and shift-esc. 

See svib below. 
thGO.tfO." 

<fknows=»(ev) 

•th75.Tfl. 

Whilst at the KEYBOARD, one can say 

"yourframe knows(DOIT)" 
and get a copy of the evaluator in the context of that instance of 
dispfraiuc. Allows access to instance variables without going 
through the 's path. 
thGO.tfO.' 

•«Pframe r> (apply frame) 
'th7G.i-fl. 
Draws a border of the given color around the frame. E.g., 

yourframe frame -1. 
thGO.tfO.' 

<ris ^(ISIT cval) 

isnew => (Ci?'winK<-:fnnx. C?^vinwd<-:f^mwa. ia/'charyt-G?=winy«-:frmy. 
:frinht.c:-v=winht*-GS2-winy. :buf. CL' 'Istln^ 1. 
G/-'niavk^-CD''last<-G/='cljarx<-Cr,'^rcply*-i£'''justify«-0. 
C/'font <- (<jfontr>(:input is stringv>(input) defont)dc>.font) 
<?noframe=>() frame black) )) 

riispframo knows 

to dread t flag ( ^ 

dispf-'-iO. C'Tliigt-falso. (j>'iuark«-last. 
(null //DU1P,BLE:>() DRIBBLE flush), 
repeat (050>disi)<^-Cr't<-kbd *( 

t=010.T>(last<n»ark=>(disp<-buftlast+l]) 

•th75.tfl. 

Backspace only up to prompt. 

thGO.tfO.' 

buf[last+l]=047=»((I'=flag^flag is false)) 
•th75.tfl. 

Ikioii'Uiaee out of string flips flag. 
thGO.tfO.' 
t=03«:?(flag:r,() done) 
'thVfl.tfl. 
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DOIT checks if in a string. 

thOO.i'fO.' 

t=017=>(Ci?=flag«-flag is false) 

'th75.-rfl. 

Flag is true if in a string 

tliGO.tfO.' 

t=05=>(sub C^(ev). i^last«-last-l. disp show) 

'th75.tfl. 

Shift-Esc make sub-eval. 

theO.tfO." 

t=04=>(disp«-010. C^'done print, dispf-036. ItC^(done)) 

disp<-13. itread of stream of buf from mark+1 to last) 
to sub disp C 

C^disp«-dispframe frmx+48 frmwd-64 frmy+14 frmht-28 string 300 

font font, disp clear. (:)eval) 

•i-h75.tfl. 

Opens a sub-frame, and evals its argument in that context. 

thSO.tfO.' 

to frame a (C?="a ♦- turtle at frmx - 1 frmy - 1. 

a'swidth *- 2 . a'sink*-(<?white^("l) <?black=>('3) <fcolora.(:) "3) 

do 2 (a turn 90 go frmwd + 2 turn 90 go frmht + 2) ) 

•th7G.tfl. 

Draws a double line around the frame. 

thGO.tfO." 

to reread n i p reader ((null :n=>((S^n*-l)) 

C^pf-mark. C^last<-mark-2. disp show, 
for i to n 

(Ci?=p<-buf[l to p-1] find last 20. 

p<l=s.(done)) 
i<n+lr>(orror Ci?='(no code)) 
■fTread of stream of buf from p+1 to last) 
•th75.tfl. 

Counts back n prompts (n is integer arg) and then does a read from 
there. Also erases the line just typed. 

thGO.tfO.' 

done 

to dclear (CODE 52) 
•th75.tfl. 

This function takes five parameters — 

X width y height value, and "clears" the display rectangle thus 
defined to the "value" given. A value, for example, puts all 
zeros into the rectangle. 
-ThGO.tfO.' 



to dcoinp (CODE 53) 
•th75.tfl. 

Just like dclear only complement rectangle. 
thOO.tfO.' 



to dmove (CODE 54) 
■th75.tfl. 

This function takes seven parameters -- source x width source y 
heisrht destination x destination y mode. It takes the source 
rectangle (x and width mod ICd as in dcl-^ar) and moves it to the 
destination x and y. Clipping will occur on display boundaries. The 
source will remain intact unless it overlaps with the destination, in 
which case the overlapping portion of the destination wins. The 
mode is cither store or or. Store (clcariuiT df stinntion area before 
scannin-; in source) is indicated witli a mode 0. Or (which lays the 
source bits on top of whatever is in the destination rectangle) is 
indicated by niodo -anything but zero-. 
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thGO.tfO.' 

to dmovec (CODE 55) 
•th75.tfl. 

Dmovec takes the same parameters as dtnove, but in addition clears 
the non-intersecting source material. It is the general case of what 
happens on the display screen during a scroll, i.e. scrolling could be 
accomplished by saying disp's {dniovec winx winwd 
winy+fontheight winht-fontheight winx winy 0). A sample call — 

dmovec 250 256 25G 256 0. 
This will move whatever is in the upper left hand corner of the 
display to x,y 256,256 ~ and then erase the source area. 
theO.tfO.' 



to redo (tr(disp reread :) eval) 
•th75.tfl. 

Causes re-evaluation of the input typed n prompts before this. 
Setting last'-niark-2 makes the redo statement and its prompt 
disappear with a disp show. 
thOO.tfO.' 

to fix voc (G?'vcc*-disp reread :. 

(disp sub G/^(veced vec)) eval) 

•thTS.tfl. 

Like redo, except that the previous input is given to the editor in a 

subwindow. When editing is done, the resulting code is evalled 

before returning. 

th60.tf0.' 



•th90.tr2. 
TURTLES 
thOO.tfO.' 

to turtle var : pen ink width dir x xf y yf frame : f ( 
CODE 21 
•Th75.tfl. 

CODE 21 is equivalent to: 
<Jgo->(draw a line of length :) 
<?turn=>(turn right : (degrees)) 
<?goto.-s.(draw a line to :(x), :(y)) 
theO.tfO.' 
<$'3^(C/^var <- o. t^i-^>(^tva.r «- :) 

ITvar eval) 
•<?pendn=>(Q7^pon *- 1. IfSETjF) 
<?penup^(CL''°pon <- 0. ITSELF) 
<?l)lack.>(Cl;';'ink *- "3. tTSELF) 
<Jw]ute;^>fG°ink *- "1. tiSELF) 
•i^xorr,(G.^Mnk ♦- -2. tSELF) 
<-.?is^(ISIT eval) 

<f honie!:>(G^''x <- frame 's frmwd/2. 
fv^y <- frame 's frmht/2. 
G>kf <- C:'=yf <- 0. £?'dir^270. tiSELF) 
<«?erase^( frame fclcar. itSELF) 
<|uij.>(e^"dir »- 270. tiSELF) 
isn(nv:i(G''ink <- "3. d' 'pen *- 4^"width ♦- 1. 
6>'fraine *- ('-'/framouif:) f). 
•fvat=>(:x. :y. CS"xf *- Ci^yt ^ 0. CS^dir^270) 
SELF home) 

PUT turtle Cr'l dispframe 512 684 string 1 uoframe. 
O •© <- turtle. 



'tli90.tf2. 

THE TRUTH ABOUT FILES AND DIRECTORIES 



PAGE 17 
alldefs 15-OCT-75 16:49:13 



**in page access. 

tHrrctory> file <string> old - finds an old file named <string> in <directory> or returns f 
**alse if does not exist or a disk error occurs. 

1:^l:;t.ory> file <string> new -; creat<. a new fi^ -^^^ ^J^^^^^'^f ^l^'nJw fi 

::;;^:r^^ zi:::^;^^i::'s;z!^Xt:i^i^n.. directory is used. 

<directory> file <string> delet. -~'^^'^i^-^'^::i^^:^^^siSt^^ ^ 

** do not delete the system directory (SISDIR.) or bittabie <^s.is.oj./vx .^, 

**ou create. 

<directory> file <string> rename <string> - renames file named by first string in <directory> 

**wi?h second string, currently not implemented for directory files. 

<dlrectory> file <string> load - loads a previously "saved" memory image (Swat format), there 

**by destroying your current state. 

<dircctory> file <string> save -- saves your Smalltalk memory. 

"leader" and "curadr" are the alto disk addresses of page and the current page of the file. 
^♦respectively, "bytec" is a character index into sadr . 

**ances of the same file do not know of each others activities or sadr s. 

".t-Ltus" is normallv 0, -1 if end occurred with the last "set"; a positive number (machine Ian 
*4uage "oinTJr to offending disk command block (deb)) signals a disk error. 

the next S integers are the alto disk label.block. ;;noxtp^ aiul :j;;^;;V-^^i:r;f^.:ract:rs 
-ckward alto address pointers. •■Inused" is -J- f ^^^^ la t page "pagon" is the current page 

::-;;:brpSr:;:;;e:-::;i\::n-:.S.t^^ 

** are the unique 2-word serial number for the file. 

the class function "nchcck" checks that file names contain alphabetic or "legal" characters or 

** digit:i, and end with a period. 

theO.TfO.' 

flo file : dirinst fnamo sadr rvec loader curadr bytec dirty status noxtp 
bacKi> Inused numch pagon version snl sn2 : ncheck x ( 

<t^=> (17 CODE 50) 

'thVfl.tfl. 

fi<-<iut<'gor>, <string>, or <filo> — 

•X is aUii!;i> (f«'' ' '" ^ lo = !;;lli (yKM'-xLvJ)} 
X is iilo (repeat (x end.> (doiie) SELlVx next)) 
(numch<G-bytec<-bytccH-> „,, , i.-i.>^\ 

(.SiOLF set to v.riie (pageu+by tec/5 12) bytec mod .U-O) 

sadrfbyffi'-.]*-^ U 0377 
thUO.tfO.' 

<-?n€xtn> ((<fword^ (•?.■?<-=> (7) 
'th7!).tfl. 

fi next wi>rd<-<intorvt'r> --write intr.;;"r. 
pov'^iblv incre.sicnt nointor to svrnd boundary. 
{0--bvtcci;j l-> () c:, -hyU'C^-bytocl !) 
I'AiV *- ::-i/'Zi\'n. i^l'.lA' *- x li'.od 2ob. 



c • f.' 
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thCO.tfO.' 

G) 

•Th75.tfl. 

f i next word ^- read an integer 
CO=bvtec Q 1=> () C^bytecf-bytec+l) 
f (SELF next*25e) + SELF next 
thGO.tfO.' 

<rinto* (16) 

•th75.tfl. 

fi next into <string> — read a string 

for i to :x length(x[i]<-SELF next).-frx 

th60.i'f0.' 

25) CODE 50) 

•thVS.tfl. 

fi next -- read a character 
(nuinch<Ci/''bytec<-bytcc+l=> 
(SELF set to read (pagen+bytec/512) 

bytec mod 512=> O iro)) tTsadrtbytec] 
thGO.tfO.' 

<?set^ «to. (<?ond.->(13) 

'th75.tfl. 

fi set to end — set file pointer to end of file. 

SELF set to read 037777 

thGO.tfO.' 

'<^\vrite=»(5) 

•th75.tfl. 

fi set to write <integor> <integer> — set file 
pointer to :spage :schar. if current page is dirty, 
or "reset", "set to end" or page change 
occurs, flush current page, road pages until 
pagon=spago. allocate now pages after end if 
necessary (-1 512 is treated as start of next 
page, i.e. pagentl 0). CiJ'bytec<-schar 
theO.tfO.' 

<?read. 4) CODE 50) 
•rh75.tfl. 

same as "write" except stop at end 
tliCiO.tfO.' 

<skipnext-> (18 CODE 50) 
'th75.tfl. 

fi sldpncxt <integcr> — set character pointer relative to 
current position, (useful for s'dppiviir rather than reading, 
or for reading and backing up, but "end" may not work if 
"bvtoc" points off the current page) G''"bytec«- bytec + :. 
thtiO.tfO.' 

-a^andri, (10 CODE 50) 
'ThVS.tf 1. 

fi end — return false if end of file lias not occurred. 
next])=Or.> ( by tec<v I) u!iich.»(^ false) )'iT false 
thGO.tfO.' 

<|'s.> (1fg eval) 

<flush:=> (12 CODE GO) 
•th75.tf 1. 

fi flush ~- dirty-:0:-> () write current page 
thGO.tfO.' 

'-',7-,vrit<!Seq^ (22 CODE 50) 
•th75.in. 
transfer words frojn jncniory to a file 
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;adr. :count. for i*-aclr to adr+count-l 
(SELF nuxt word *- mem i) 
theO.tfO.' 

<?readseq=* (21 CODE 50) 
'thVS.-rfl. 

...from a file to memory.. .(mom i <- SELF next word) 
theO.tfO.' 

•^is:* (ISIT eval) 

•<fremove=> (dirinst forget SELF) 
•tli75.tfl. 

remove file from filesopen list of directory 
thGO.TfO.' 

<fcloser> (dirinst 's bitinst flush. 

SELF flush. SELF remove. trC^closed) 
'th75.tfl. 

fi close or Cir'fi^-fi close (if fi is global) — flush bittable 
and current page, remove instance from filesopen list of 
directory 
thSO.tfO.' 

<;?shortenr> (<?to. •^here=> (SELF shorten pagen bytec) 14 CODE 50) 
'th75.tfl. 

f i shorten to <integer> <intGger> — shorten a file SELF set 
to read :spaf;e rschar. Cs?'x<-nextp. C5/^nextp<-0. 
(S^numclK-schar. Cj?^dirty«-1. deallocate x and successors 
theO.tfO.' 

<?'print=> (disp «- fnanie) 
•th75.Tfl. 
file prints its name 
thGO.tfO.' 

<rreset^ (11 CODE 50) 
'th75.tfl. 

fi reset — reposition to beginning of file 
SELF sot 1 
theO.tfO.' 

■<!'intostring^(SELF set to end. 

CJ^x «- string bytcc + 512 * pagen - 1. 
SELF reset. I1SELF next into x) 

<:?random=> (SELF set to end. cl/'rvec ^ vector pagen. 

for X to rvec length (SELF sot x 0. rvec[x] <- curadr)) 
•■rh75.rn. 

fi random -- initialize a random access vector to be used 
in fi s<)t... new pages appended to the file will not bo 
randomly accessed 
thGO.tfO.' 

<pages-> (20 CODE 50) 
'th75.tfl. 

fi p;!':e'; <intogor> ... <integin-> -- out of Iho KMino grcit 
trarlition as "moin" ccincs the I)o^\'cr to do jjotentially 
calaslropliic direct disk i/o (not for th'; faint-heurtcii). 
:cor(r't:dr(>'i-;. :disi- aiidrfss, njiskcoinniand. :st art. page. 
:nuinbcioi pages. :coreincre(rK)nt. if -1 - coreatUlrevs, 
copy "sadr" to a l)uff(n' fjofore tlio i/o caH. diskaddrcss 
(=-1 yields "curadr") and disliconunand are tlie alto disk 
address and command, startpige is re}cv;>nt if lab«I chcclung 
is perform. (1. niiinliorol';>a;ces i; ihn uu:-<Urr of disk p->'.-es 
to prt>r',. "S. cor(Ui!cr"a>vnt is n'.tia.'.ly {Un- v yliiv.--; in :.;>ine 
buifiT) or ;'56 i\n- ush;" coii-.f <:u i ivo i>;:'-;'S of core, use 
label block from instant:;' of "li". c(!;,> htbtd block from 
insLauce. perform i/o caU. copy "cui-a.dr" and kU>ol block 
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into instance, if -l=coroadclress copy buffer to C^^sadiC^. 
thCO.i-fO.' 

isnew=» (Gr'f name«-ncheck :. fnanie is false=> 

(error C^(bad file name) Itnil) 
(null dr'dirinst '*■ //curdir=> 

(Q?^dirinst «- directory 's defdir. dirinst open)). 

'ThTS.tfl. 

set directory instance for file, if curdir is nil 

because file was not called from the context of a 

directory instance, use the default directory 

thGO.tfO.' 

■<exists=5. (24 CODE 50. ITfnanae) 
•th75.tfl. 

return false if file name does not occur in the 
directory 
thGO.tfO.' 

<|delete=j. (15 CODE 50. irCf="deleted) 
't]i75.tfl. 

delete a file (see intro) 
ThGO.tfO.' 

GJ^sadr <- («=:?using7> (:) string 512). 
'th75.tfl. 

set up file string buffer 
thGO.tfO.' 

<?rename=> (Cy^x *- ncheck :. x is false=> 

(error &'(had new nanie)'rrnil) 

file X exists=> (error Ci'=(name already in use)) 

2 CODE 50. G^f naiao ^ x. 23 CODE 60. 

SELF set 12. SELF *- fname length. 

SELF ♦- fname. SELF flush, tfname) 
•th75.tfl. 

check that the now name is not already in use. 
lookup the original file and change its name in its 
directory, and in its leader page 
thfiO.tfO.' 

•.-^load^ (2 CODE 50. 8 CODE 50) 
'th75.tfl. 

lookup an old file and load (overlay) a Swat 
memory image; return via save. 
thGO.tfO.' 

(<,fohW (2) 

'i.in()\y-> (dirinst 's filinst is filo,^ (3) 19) 
1) CODE 50. 

'th75.tfl. 

find an ohl file or a(!d a new entry (updating 

crcato/wrilo/road dale and time, and file name 

(as a Bcj'l strinjr) in its leader ]jage. special 

handling for new directories), machine code 

mav return false 

tliC.O.tfO.' 

•.".-save* (SELF set to write 250 0. SELF reset, 
dirinst close. 9 CODE 50) 

'th75.tfl. 

allocate a file, close tlie directory (other files 

e.g. DUlUBIiE, and directories should bo already 

closed), and write out the nUMnory iisia'je ns a 

S'.\'-it file, whcji arriving her(> from ri "1;-^,.F', 

relurn false; oilierwise return th'- iih.; iuslauce. 

ThGU.rfO.' 
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•<;?intostringr>(tSELF intostring) 
dirinst remember SELF) )) 
'ih75.tn. 

finally, file puts itself into the filesopen list of its 
directory 
theO.tfO.' 
file 's(ev) 
to ncheck str i x :: legal (C^str<-:. 

(str is string*(str length < 255-,() tTfalse) f false) 
for i to str length 

(G/^x ♦- str[i]. 

0140 < X < 0173=> ('lowercase') 
057 < X < 072=> ('digit') 

< legal[l to 6] find X:* ('legal') 
0100 < X < 0133=> ('uppercase') 
tfalse) 
x=0SG:5>(tstr) irstr+ df'.chars) 
•th75.tfl. 

check that the file name is a proper length string containing only lower/upper case letters, d 
**igits, or legal characters, if name does not end with a period, append one. 
thIo.TfO.' 

PUT ncheck Cv'legal fill string 6 

done 

'th75.i-fl. 

a directory is found in a directory ("dirinst"), has a bittable file ("bitinst") for allocatin 
**g new pages, a file of file entries ("filinst" -- file names, disk addresses etc.), and ah 
**st of currently open files ("fileaopon" which is an "obset"). each file must ask its directo 
**ry for the bittable when page allocation is necessary, and the system directory (via its toe 
**al directory) for the disk number. 

C^di *- . 

<directory> directory <string> old/new 

currently, <dircctory> and old or new must be specified. 

"dirnamo" is the system directory name and "bitname" is the bittable name, "curdir" is a class 
** variable bound to the last directory instance "opened", and provides information "who calle 
**d you" (i.e. CALLER) to a file or directory, "defdir" is a default directory, initially sot 
**to"dpO, which is invoked when "curdir" fails to be a directory, i.e. file was not called in 
**tho context of a directory, but globally 
ThGO.tfO.' 

(to directory name exp : dirinst bitinst filinst filesopen : dirnamo bitname 
curdir dofdir ( 

<?filo=> (SELF open. IVapply file) 
'th75.tfl. 

di file <string>,.. -- open directory, create file instance 
(see file intro) 
thGO.tfO.' 

<?open=5. (CS'"°curdir +- SELF, filinst is filG=> () 

liiliiis(->(i,T'='rilinKt't-file filinst old. G 'bitinst*-filc bitinst old) 

Ci- "filinst <- (<'new,>(f ilo filinsl iu;v) file filiusl old). 

Cy^liitinst *- dirinst 's bitinst. dirinst remember SELF) 
'th75.tfl. 

di open -- (normally not user-callod since access to the 
directory always reopens it) initiali/.e directory file and 
bittable instances: a "subdirectory" uses the billable of 
its svstom directory and puts itself into that filesopen list. 
ThGO.tfO.' 

•■:>i.s .» (ISIT eval) 

<?rcmember^ (filesopen ^^ :) 
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<fforget=> (filcsopen delete :) 
'th75.Tfl. 

achl or delete file Instances in filesopen. 
ThGO.TfO.' 

<fl)rint=!>. (disp«-0133. filesopen print. disp«-013C) 
'Th75.tfl. 

di or di print. — print the filesopen list. 
ThGO.tfO.' 

<?mapr5. (SELF open. C^exp ♦- :. filinst reset, 
repeat (filinst end=>. (cr. done) 
1024 > Cy^name*- filinst next \vord=> 

(name < 2=> () filinst skipnext 2*name-l) 
filinst skipnext 10. 

Gl^name «- filinst next into string filinst next, 
exp eval)) 
'th75.tfl. 

di map <expression> — evaluate an expression for each 
file name 
thGO.tfO.' 

<:flist^ (SELF map Ctr'(disp<-name. sp)) 
•th76.tfl. 

di list — print the entry names contained in filinst 
thOO.tfO.' . 

<f fIush-->(filesopen map C^(oach flush)) 

•s?close=> ((filinst is file--> (SELF flush. Gr'filcsopen <- obset. 
Gr'filinst ♦- filinst 's fname. 

dirinst is directory,-* (dirinst forpot SELF. G/'bitlnst ^ false) 
tS^bitinst <- bltinst 's fname)). tr6;^'='closed) 
'th75.tfl. 

di close (e.g. dpO close) or Ci/Mi<-di close (to release 
instance) —close a directory by closing all files and 
directories in its filesopen list and deleting it from the 
filesopen list of its directory, this is currently one way 
to regain space by closing unwanted file instances, and 
to change disk packs. 
theO.tfO.' 

<?usc=> (G/^dcfdir «- SELF) 
'th75.tfl. 

di use -- change the default directory. 
thGO.tfO.' 

«K?'s.-> {to eval) 

<Ffroo-> (SELF open. G/'exp <- 0. 

bitinst set to 1 600 "dirinst Q'l. 

do OOU (255 - G'"nanio <- bitinst noxt-.> (C-'^exp *- exp + 8) 
name > 0~> ( 
repeat (&'''oxp <- oxp + name Q I. 

= O'name *- naiiio tO*l^*(done)))). 

■fr4872 - oxp) 

•rlwG.tfl. 

di free -- return number of free pages frojn the 

bittahio associr.tod with this directory, 

tliBO. tfO.' 

«*?dlrcctoryr> (SELF open, tfapply directory) 
•th7.'5.rfl. 
ell directory <string>... -- open directory, create directory 

iiistanco 
tliiJU.tfO.' 

isnewT> (CL'TilesOpon «- obsot. 

«.fdevice ^(C/'dirinst *- :. Ci?"filinyt <- dirnaiiic. 



PAGE 23 
alldefs 15-OCT-75 16:49:13 

d?=bitinst *- (l<dirijist=>(bitname + cS^wo chars) bitiiame)) 
C«=dirinst ^ curdir. Gl'^filinst ♦- :. Gr'bitinst <- false. 
<?new-.,(SELF open new) <?old. SELF open))) 
'th75 tfl 

store the directory file name in f ilinst; ''subdi,'-^^ ?;.*°^" ""^ , 
"curdir" as their directory, are flagged by "false bitinst and 
then opened, for system directories, dirinst is a number 
indicating physical device location and size, and b.tmst 
contains the file name for the appropriate bittable. tiie 
directory is not immediately opened. 
thGO.tfO.' 

directory 's(ev) 

C^dirname <- fill string 7 

SYSDIIl. 

d?=bitname *- fill string 9 

SYS.STAT. 

done 

•th75.tfl. . ,, 

names of the system directory and btttable 

thGO.tfO.* 

Cr'dpO <- directory device 0. 
cS^'dpl ♦- directory device 1. 
G?=dp2 ♦- directory device 2. 
(i/=dp3 ♦- directory device 3. 
di>0 use 

cVeltVsome system directory instances which are initially closed. 

dpO is the same (default) directory that the Operating System 

Sp rcan similarly access another Model 3 1 disk or a Model 44. 

dp2 and dp3 provide a mechanism for wri_ting on the other halves of 
a Model 44, with some preliminary initialization; files written 
through dp2 (dp3) can be read by dpO (dpi) .,lso. yon ^^"f^'^_ 
overwrite or delete such files via the directory that created them 
one useful exception is that dpO or the Operating System (eg. _ 
subsystems like CONCAT and ETIIERMCA) can overwrite files in dp2 
as long as the files remain the same length (e.g. Swat files). 
thGO.tfO.' 

to error adr ptr arec :: c sub ( , *^ , x„->-. 

(0=G-adr<-mcm 0102=>«knows=>(ev tt) dson. :ptr)) 

Ci/''arcc*-lcech ARKC. 

disp sub Gr'((0=adr^(ptr print) 

mom 0102*-0. dispt-0377E! mem adr. 
for adr*-adr+l to adr i-(mem adr)l0'9 ( 
Cir"°ptr«-mem adr. 
disp(-ptrZ]'8. disp^ptrE) 0377)) 

cr c ev)) 
error knows 
to c class code 11 12 adr vadr i cpc ( ^ -, ^, , rm 

null arcc[5:f >(.) O^arec^leech arccrsl. C;=class<-arec[0]. 

(OET class C-, TlTl.E) print. ©=: print. 

Cr'ndr «- C/'vndr - arcc[,i;UJ 

O-ll H lorch .ul. GP12 *- leech U. 'iasten seat belts 

repeat (^.J^'JjJq ^'i'^^U^^j j,-()-jrj,5o„c) "finds stnrt of code vector' 
C-'"'vf.iir <- vadr-1) 

encode ^ i2ni.i2i:oQ -1. 

Cs/'cpc <- adr-vadrt-l. 

for i to code length r r- i- ^nrr-\ 

(i<cpc~5.>(disp<-05G) i>cpc+r>r>(d)sp*-05G) 

sp. (i=cpc.>(disp^G3l)) . 

codeLL] is vcctor.»(C () print) rod<.[.l print). 



to sub alp (Ci;-disp ^ GET USER Clr\Hsp. (:) «val) 



done 
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to kbck (1 CODE 20) 
•th75.tfl. 

Returns true if the keyboard has been hit. 
thGO.tfO.' 

to button n (tr:n=mouse 7) 

•th75.tfl. . , , , ^ 

Returns true if that pattern is being held down 
theO.tfO.' 



•th90.tf2. 

THE SMALLTALK EDITOR 

ThGO.tfO.' 

to edit func t (://func. 

(l?'t*-GET func CITDO. 

null t ^ (tClS'Cno code)) ^^ m nn^i 

<titIe-> (ovapply veced classprint func header to 0/ (oval) in GLOB) 

PUT func (S^DO veced t. 

tKlJ'editod) 

'th75.rfl. . . . 1 n 

Edit picks up a code vector, makes sure it is not empty and calls 

voced to edit the code body. If you say edit foo title, veced will 

edit the header as well, and the changed form will be cvalled upon 

exit to redefine the function, title and all. 

Veced can be used on any vector, and is used by FIX/^s ^«" ^^ . 

EDIT It creates two new windows within the default DlbP wliicn 

exists' when it is called. One is used for a n»onu of commands 

the other becomes the new default window DISP. 1 he new_ default 

is passed to an intermediary; and the newly edited vector is 

returned. 

thGO.tfO.' 

(to veced back newdisp menu x :: monuwidth menulen memistr 
ed edpusli edtarget gettwo bugin getvec ( 

<f knows;>(ev) 

G/'back*-false. 

disp fclear. . ,,, • iti» 

disp's (Cv^menu^-dispframe frmx+frmwd-menuwidth memiwidth 
frmy (frmht>130:n>(frmht) 140) string 70 

font font, 
menu ^ menustr. 

mem 0425 <- frmy + 103. . , , „ 

CS^'^newdisp «- dispframo frrnx frmwd-menuwidth+Z 
frmy frmht string buf length 
font font noframe) 
:x. CS-'x <- indisp newdisp (ed x). 
menu hide, disp display, 
tx) ) 



veced knows 

G/'mGiiuwidth <- 64. 

C' 'mcnii';tr*-string 0. 

G,' 'menulen ♦• 10. 

do mouuh'U fO>x^fill string 9. 

C,'''menustr«-mcnustr+x[l to x[l to OJfmd 1.5 J J. 

Add 

Insert 

R'^placo 

D<-!.>te 

fslove 

Up 

Push 
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Enter 
Leave 
Exit 

to etl ptr 1 n nrun command temp i nv nl fnth hfnth ( 
(^"'cominand *- 0. 

(^f nth *- (leech disp'sfont)[2]Q 

Cir'hfnth <- fnth/2. 

repeat( 

C^lt-ptr length. 

back=>(done with ptr) 

mem 0424 *- menu 's frmx + 48. 

menu show, disp clear 

C]?°nv*-0. 

for n to 1-1 

(ptr[n] is vector=»(disp'-044. sp 

d7"nv*-nv+l. iar'nl«-n) 
ptr[nl print, dispt-32) 

cr cr. 

tSr'command +- edcomp bugin menu monulon both. 

mem 0424 *- disp 's (frmx + frmwd/2). 

(^( 

(CS^ptrt-vecmod ptr 1 read) 

(Cy=ptrt-vccmod ptr odcomp cdtarget both road) 

(gettwo. G/^ptr<-vecniod ptr n nrun road) 

(gettwo. CS^ptrt-vecmod ptr n nrun nil) 

(gettwo. C^temp <- ptr[n to n+nrun] 

temp[nrun + 1] ♦- nil. 

C/'i«-edcomp edtarget both. 

dr"ptr«-vccmod ptr n nrun nil. 

(i>n => (C/^i^-i-nrun)) 

G?^tr<-vecmod ptr i temp) 
(gctvecr>(Clf=ptrt-vecmod ptr n 1 ptr[n]) again) 
(gettwo. edpush) 

(gotvoc=>(ptr[n]<-ed ptr[n]) again) 
(done with ptr) 
(iS^back«-true. done with ptr) 

) [command] eval. 

) 
) 

•-rh75.tfl. . , . , 

The heart of ED is a vector, containing as its elements code 

vectors The giant vector is indexed to got the particular piece of 

program, and it is sent the message EVAL. Note that the order of 

the segments in EDI should match the order of the atom names in 

MENUVEC. 

thGO.tfC 

to edpush ins (t^ins«-vector 2. , n •, 

insi:i> ptr[n to n+nrun]. ins[l][nrun+l J*-nil. 
C2^='ptr<-vocmod ptr n nrun ins) 

to g»atwo tl n2 (t?y'n«-edcom]) cdtarget top. 
Cy='n2«-edcomp edtargot hot. 
d'^nrun <- l + n2-n. 
nrun<l->(G5"n<-n2. Ci/^nrun<-2-nrun)) 

to bugin .somefiame max index( 
Ctf^someframe *- :. 
CLS^max *- :. 

repeat (button => (repeat ( .,-.,.- 

button 7 =>(dis-p sub &"(ev)) 
button -^() 
done) 
done) 
) 
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C^index»-someframe mfindt mx my. 

< indexH] ~ '"^^ =* 
(tindex) 

•th75.tfl. 

returns token index, if withm range, else 

thCO.tfO.' 

again 

'th75.tfl. .. „ 

causes an exit out of this command by restarting ed s 

repeat 
theO.tfO.' 

) 

to edtargot (1t bugin disp 1) 

to getvec (nv=l.>{Cr>n<-nl. tTtrue) . 

tiptri;CL-'n*-edcomp cdtarget both] is vector) 

to odconui compvec y hth (:compvec. 
G'=y<-compvec[4]. 
Gr°hth<-CObothr>ffnth)<ftop=>(hfnth) 

<^bot=>(Cl^'='y*-y+hfnth. hfnth)) 
dcomp compvec[2] compvec[3] y hth 
Itcompvecfl] 

) 

done 

•th90.tf2. 

BOOTSTRAPPING REVISITED 

thGO.tfO." 

tr, .l-,«nrint fn a b i 1 k flags clsv clsin arecv arecm instv instm code ( 
to classprin f n a b^ ^^ GET fn C^=DO. null code=>(G'(no codc)^ 

^4 "l.ooh #fn. C>^b<-vector 1. CS^h^leoch b. (rr'clsm.&='arccm.C^instm^O. 

CD-=k^ani]a C£#-clsv-vector k. Cl/-arecv^vector k. Q .nstv«-vector k. 

•th75.tfl. 

Pull symbols out of class table 

thOO.tfO.' 

for i^l to 4+2*k by 2 

'th7r).tfl. 

k is no. dbl entries -1, here 

thGO.tfO.' 

(C?-k^a[i]Q ^ ^._ 

k = tO-l)=>{again). Gz-flags^-kZ] 14. 

'th75.Tfl. 

0=class, 2=arec, 3=inst 

thGO.tfO.' -, .. , r-n 

flags=0-->(0=C;?-(DO TITLE SIZE) [1 to 3] find aCi> 

(<'Isv[G.^='c!sm<-clsin + J 1 ♦- a[.i])) 
br2']a*- kfj).n77. Oj^afi+llLl 
( lais=2^(arecvr5-(>:i . br2l. arecm<j-a.fC;- arocnH-j- 3)) 

inylAlJ+l] - 1)[2J. instin<j + l.>(Cy instm*-j + l)) 

) 

'th75.tfl. 

Now inaliP up input form. 

Hif.O.tfO.' 

Ci'^a *- vector 6 t-arecm+instin + clsm. 

af 1] ^ r -no. ai:2;] f- GET fu CJ'TITLE. 

!ir3 lo Ci'''i'~2tarocni'l *~ arecv. ,-.,., -1 - ... 

^ 0<clsm^(ai:u.^'jH'l><;^^"<'iLi+l to f^'J*-J+'^^«'"] "'='''")>> 

•.?rnc>adorv(a(j+lj^oo(k!. ITa) 
for i to j (aCi] print. disp^32) 
shov.pr(-tty >(p-how code 3) code print) 

to show showprctty (G>showpretty*-truo. showov 8) 
to showev rdiAto:n «hVal (:shAtom. cr. 
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(shAtom is atoiri:^ 

(CS?="sliVal <- shAtom eval. 
(null GET shVal c:iy=DO.-> 

{(S-'C^ print. shAtom print. GT*- print. 
(shVal is vector=* f Qr'Cf' print) 
shVal is atom=>(C^"Ci/=print) 

null shVaUCC/'nil print)) 
shVal print. Cr". print) 
classprint shVal)) 
shAtom print) 
disp«-30.) 
•I'hVS.tfl. 

*****Keyhoard translation***** 
ThGO.tfO.' 

to kbd (ITkmapCTTY]) 

'^^^"'''f;r1I^2oS't7b.377(kmapCi] ^ 0177) '.f l.ILLEGAL GETS ^tfO.' 
for i^OOl to 0177(kmap|:i] ^ i) 'tfl.tfl. REGULAR ASCIPStfO. 

'tfl.CHAR — KEYBOARDtfO.' 
kmap[0341>lcmap[0301].lunapC0274>kmai50254>^^^^ ^^ ..SlIF,.fO.- 

kmap[0342].kmap[0302].kmap[0236>kmap[0237>kmap[037>k^^^^^^ 
' "- 'tfl.^ — rtli or any TOP BLAIsK. Kt^i.TlU. 

kmap[:0343]^kmapr0303]-kmap[0272]-03. 'tfLS-- ttCor ttSnF;tfO.' 
kmap[0344j*-kmapr0304]^04. 'fl.ttD 'done'tfO. ..cttt^ rcir^fn • 

kmanr0345]-kmapr030S>kmap[023]*-05. 'tfLQ " ttE or ttSHF ESCtfO. 
kmapr034G>kmap[030G>kmapr0262>06. ;.fl.@ " t tF or t t2tfO.. 
kmapr0347>kmapr0307j-kmapr0273>07. 'tfl." " ttG or ^tJjfO 
kmap[0353>knvapr0313]^kmap[-0245>013. t 1.2 - ttK or ^l^HF-^fO. 
kma >r03oGlH.mapr031G]-kmapL027a]^016. tfl * - ttN or ll=^\^- , 
kmapr0357ivkmap[03t7]^kmap[0242]^017. tfl." -- ttO or ^^SHl-^tfO. 
kmapr0360i.kmapr0320].kmap[0271>020. tf .^ -- yP or ;t9;fO. 
kmap ()3Gl>kmapt:0321>kmap[026l>021 tf.! - ttQ or ^t'. fjo.fn • 
kma pL0362Vk.napr()322>kmap[0300]^022. 'tf 1.° -- ttR or ttblli.2rf0. 
kmap[03G3J^kmapL0323>023. 'tf l.'s -- t tstfO. 



kmapr0364>k,napL0324>024._ _^^_;m.^^^^^^ ,^^^ . __ ^^^^ ^^ ^^_^^^ 

'tfl.Vo -- ttV or i-t5TfO.' 
kmapi:0367l<-kinapr0327>kmapf037G:>027. ;tn.- - ttW or J rSm^OtfO 
kmal.i:0370 .kmapi:0330>kmap[0240>030.;. .^-^-.^cn't^ 



kmapr03Gr,>kn,apr0325]^kmap[0255]-kmapC0 40]^025 tfl 

k.nap 0366>kmap[0320]-kmap[0205>02G. 't l.Vo - t tV or ttStfO 



kmap[037lj*-kmapl.0331]*-kmapL0277>031. '!,.•„'!-- IT^ O"- ^^ ^^"^'^ ^^O" 
kmapL0372>kmapL0332].kn.apr027G_>Ynap_[0..>6>03..^^ 

kmapr0333l^kmap[02G4]*-033. •tfl.$ -- ttC or Tt4tf0.' 
knuu.f0334j*-kmapr02G7>034. 'tfLfe -- tt\ or tt7tfO. 

• tfl 8 — EF or 1 t t- or 1 1 SllF<-tfO.' 
kmapr0247>0174. " 'tfl.^ - SHF\ or tt^tfO ' 

kmap"0257V017G- '^^^^ " ^'"^« *''' ^'^'J°; 

kma , h2G3>-043. 'tf 1./^ - S1IF3 or t tStfO.' 

1-nr, . i)'>7oU-052. 'tfl.* — SIIF8 or tt8tf0.' 

k ■ , )r2O>kmapr"21O>k,napr020>010. 'tfl. ALL BSVStfO.' 

2^5J.Kmul0215 .-knu,k025:!.015.'tfl.ALLa^ 

kmapL0240>kmapC0230]^kmapL030j^040. 'tf l.ALL SP'StfO.' 

to filout disp flist i HhowprGtty (G?=showprotty ♦- <?iiretty. 

dsoff C:disp is striuK* (©\lisp-filc di.sp.> () error CI?=(f.Io error))) 

(<^add ;>(disp set to cud)) 

(null :flistr>(defs map &"(showev each, cr)) 

for i to flist length- 1 (showcv fiistr_i]- cr)) 
disp shorten to haro. disp close, dsou.) 

.'tfl Filout hasicallv does a sliow in a contc^it where the disi.lay is 
ruj.laccd by a file, filout pretty <file> or <strinK ^ file nan.(>> add 
<vector>. if "pretty" is used, the text repre.scuttition is noa.er Imt 
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fnlro^ longer to generate, if "add" is used, function definitions are 
a^nSo the'file. if <vector> is not specified, "defs" .. used. 

theo.tfo.' 

to filin fi :: ev (<f's=>(1t-geval) 

dsoff. ^ „.,,/% 

(;fi is string=>(i^fi <- file fi old^C) 
dson trfalse)) 

repeat 
(fi endr^(done) 

dsoff. 

cr (read of f i) eval print. 

dson). 
fi close. 

filL's (to ev (repeat(cr (read of fi) eval print))) 

i^'Jn'b'fsi^ally does a read-eval-print loop, but gets its input from a 

file instead of a dispframe. 

ThGO.tfO.' 

to type f t ((:f is string:>( , , .^ . 

'^ <^i *■ file f old:*(f remove) 

IfalsG)) 
Clr't^-stTing 30. . , . • * ♦^^ 

repcat(f end=>(done) disp*-f next into t)) 

to t fool :: fontname (dlspfran,e 's (CP^def ont . file fontna.no intostring). 

C?-disp*-dispfrau.o 16 480 514 168 string 520. 

disT) <- version. O^'dofs ♦- obset. »x„-i 

§'fool^/no. to to toAtm (CODE 19 d«f^-toAt-. toAtm) 

PUT USER G/'DO (P\ct read eval print). Ci/=t«-U.J 
PUT t t^'^fonlnaiTio fill string 6 
ST8.AL 

CS=version*-fill string 34 
Welcome to SMALLTALK [September 9] 

to expand x (:x. disp 's (C^winy^G?-frmy<-frmy-x. frame black) 
disp show CODE 38) 
;t^nStosetupadispla.fra„.,an^ 

di n1^;v a^^'o a gmenrtho S^^^^^ workspace, expand 200 

tSd'treaOO hLs of f the top of the display and increa.se core by 
6400 words. 

THE SMALLTALK READ ROUTINE (name changed to protect ev) 
tliGO.tfO.' 

(to junta scanner : : roadl tabl.can rclnum mknum rdstr rtbl type 
lotbit digblt sopbit atbits qtbit 

(<:s's>("Soval) 
<i.M)f >( (:scanncr is .string:e> 

(C/'Kcnunor +- stream of scanner)) 
C sciinner «- tablacaii scanniir type, 
ttroadl rtbl) 
iTdisp road)) 

junta 's(ov) 

to roadl rbuf rdtb flag ( 

:rdtb. 

Gf'rbuf <- stream of vector 10. 

scanner read. 

lirljuf cuntt'uts) 

to tablscan masli : source type scq isf il njctchr ( 
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<J'next=> 
(CODE 14 next. 
'CODE 14 is equivalent to... 
:mask=0^(6/=t*-string 1. t[l]«-nxtchr. 

C^iixtchr<-source next. 'fTatom t) 
seq reset, 
repeat 

(0 = nxtc]ir=j.(done). 
= mask Q t>pe[nxtchr + l]=s.(done). 
seq <- nxtchr. 
Cr'nxtchr <- source next) 
tseq contents') 
<fskipr>(Cir°nxtchr *■ source next) 
<?readr>(repeat 

(rdtb[nxtchr + 1] eval)) 
isnew=> 
(:soiirce. 
:tvpe. 

CS/'scq ♦- stream, 
(source is file=>(C^isfil «- 1)) 
SELF skip)) 

to rdnum sign base n fs( 

G^^sign ♦- (nxtchr=025.T>(scanner skip. '1)1). 
G/^base *- (nxtchr=060^(8)10). 
0=11 <- iTiknuin scanner next digbit base. 
G?'-'fIa<,' *- false. 
056 = nxtchr^ 
(scanner skip. 

CS'^fs <- scanner next digbit 

0=fs length->(CIr'nag*-true. 1t-sign*n) 

G?=n - n + (mknvim fs 10)/ 10.0 ipow fs length. 

nxtchr=01'15r,(scanner skip. •fru*(10.0 ipow rdnum)«sign) 

T'n*sign) 
■itsign*n) 

to mknuin str base n i( 
:str. 
;base. 
Gr-n t- 0.0. 
for i to str length 

(G>^=n *- (n*base) + str[:i]-060) 
1fn) 

to rdstr t (scanner skip. 

(j5"t«-scannor next qtbit. 

scanner skip. 

nxtchr=047i>(seq^047. ttseq contcnts+rdstr) 

trt) 

•fliV.'S.tfl, INITIALIZATION OF READ TABLES 

thOO.tfO.' 

G/='rtbl <- vector 256. 

GPtvpe ♦- string 25G. ^3 , . ^ 

G;-s"<.plnt ^ 2 * G;^letbit *■ 2 * G/=digbit - 2 * G/^qtbit <- 1. 

G- 'athits +- Ictbit + digbit 

to scaiintu- n V i j ( 

:n. :v. repeat ( 

".i. 

{■'■;iOr>li:j. for k<-i + l to j + 1 ( 

tvpoLM*-"- »•<•'' irjo*-^)) 

typ([i + lj'^-n. vtbl[;i+l>v) 

:c:::::::r iSI^S::m-S;j;."xf^ doi to 0,32 a.a 014, to oit^. .lott^rs- 

s.- uin-n- .;;- bit G- (rbuC'-rdnum. flag.^Crbuf^-C '.)) OoO to 071. digits 

scanner Ot-(x!n,fVrdnum.flag->(rbuf.-G:'^)) 025 Vliiglr-mmus 

sc inner scj-hit G, ^(scanner next sepbiL) OU and 014 and 01.', and 040. tab, LI , I F, CK, bb.nk 

scanner qtbit G,- 'Cil^^f ^ rdstr) 047. 'string-quote' 
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scanner CI?=(scanner skip, rbuf ^ (readl rtbl) eval) 020. 'eval-paren 

scanner (^-(scanner skip, rbuf - roadl rtbl) 050. 'left-paren 

.scanner f^Xscanner skip, rbuf - nil. done) 051. ■right-paren 

scanner cS-'Crbuf «- nil. done) and 036. 'null and DOll 

for i to type length (type[i] *- type[i] B qtbit) 

done 

Cv°read ♦- #junta. , „n ..jt. > 

PUT read G/'TITLE C^read. '-MiTS.tf l.cover our tracksthOO.tfO. 

to quit f s t : : r b (dsoff. 
(null :s=>C) 

Cy=f *r file r. 

C^t *- f intostring. 

f reset. 

f ♦- s. 

f *- 13. 

f *• t. 

f close), 
file b load) 
PUT quit &^T fill string 7 
REM.CM. 

PUT quit (S'h fill string 5 
BOOT. 

to OS s : : r b (Cv's +- :. 
file b save=* 
(quit s + r)) 
PUT OS C3^h fill string 9 
BREAK.SV. 

PUT OS G/'r fill string 17 
;RESUME BREAK.SV. 

dr-fill ♦- nil 

to junta (PUT USER Cy^DO t^(t). CODE 31) , 

'th75.tf l.allocates display over OS after sotting up ttbGO.tfO. 
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